home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / A-B / Bible.cpt / Hyper Sword / card_6490.txt < prev    next >
Text File  |  1989-07-04  |  3KB  |  125 lines
  1. -- card: 6490 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2636
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 0005
  11. -- rect: left=20 top=132 right=155 bottom=42
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: New Button
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   set the cursor to 4
  23.   global duplicate
  24.   add 1 to duplicate
  25.   global scoring
  26.   add 1 to scoring
  27.   put"" into background field id"21"
  28.   get loc of background field id"21"
  29.   choose browse tool
  30.   Play"Applause"
  31.   click at it
  32.   type"Correct - Keep up the Good Work."
  33. end mouseUp
  34.  
  35.  
  36.  
  37. -- part 2 (button)
  38. -- low flags: 00
  39. -- high flags: 0005
  40. -- rect: left=20 top=109 right=132 bottom=42
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 0 / 0
  43. -- text alignment: 1
  44. -- font id: 0
  45. -- text size: 12
  46. -- style flags: 0
  47. -- line height: 16
  48. -- part name: New Button
  49. ----- HyperTalk script -----
  50. on mouseUp
  51.   set the cursor to 4
  52.   global duplicate
  53.   add 1 to duplicate
  54.   put"" into background field id"21"
  55.   get loc of background field id"21"
  56.   choose browse tool
  57.   click at it
  58.   play"boing"
  59.   type"Sorry your answer is incorrect"
  60. end mouseUp
  61.  
  62.  
  63.  
  64. -- part 3 (button)
  65. -- low flags: 00
  66. -- high flags: 0005
  67. -- rect: left=20 top=155 right=178 bottom=42
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 1
  71. -- font id: 0
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: New Button
  76. ----- HyperTalk script -----
  77. on mouseUp
  78.   set the cursor to 4
  79.   global duplicate
  80.   add 1 to duplicate
  81.   put"" into background field id"21"
  82.   get loc of background field id"21"
  83.   choose browse tool
  84.   click at it
  85.   play"boing"
  86.   type"Sorry your answer is incorrect"
  87. end mouseUp
  88.  
  89.  
  90.  
  91. -- part contents for background part 32
  92. ----- text -----
  93. The Creation Stage
  94.  
  95. -- part contents for background part 1
  96. ----- text -----
  97. The oldest man who ever lived -- 969 Years?
  98.  
  99. -- part contents for background part 12
  100. ----- text -----
  101. Noah
  102.  
  103. -- part contents for background part 13
  104. ----- text -----
  105. Methuselah
  106.  
  107. -- part contents for background part 14
  108. ----- text -----
  109. Canaan
  110.  
  111. -- part contents for background part 37
  112. ----- text -----
  113. 9
  114.  
  115. -- part contents for background part 43
  116. ----- text -----
  117. Genesis 5:27
  118.  
  119. -- part contents for background part 48
  120. ----- text -----
  121. The son of Enoch and the oldest man who ever lived.
  122. His name means - When he is dead it shall be sent.
  123. This spoke of the coming flood.
  124. Methuselah lived to be 969 years old.
  125. The possible reason Methuselah lived so long was the Longsuffering of God who was not willing that any should perish.